home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / examples / rc-shell.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1991-10-06  |  2.2 KB  |  60 lines
  1. ; -*-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ; File:         rc-shell.lsp
  5. ; RCS:          $Header: rc-shell.lsp,v 1.3 91/10/05 18:48:47 mayer Exp $
  6. ; Description:  Load this file to put up a default rowcolumn shell for
  7. ;               experimentation purposes. 
  8. ; Author:       Niels Mayer, HPLabs
  9. ; Created:      Sat Nov 25 01:27:22 1989
  10. ; Modified:     Sat Oct  5 18:48:35 1991 (Niels Mayer) mayer@hplnpm
  11. ; Language:     Lisp
  12. ; Package:      N/A
  13. ; Status:       X11r5 contrib tape release
  14. ;
  15. ; WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  16. ; XLISP version 2.1, Copyright (c) 1989, by David Betz.
  17. ;
  18. ; Permission to use, copy, modify, distribute, and sell this software and its
  19. ; documentation for any purpose is hereby granted without fee, provided that
  20. ; the above copyright notice appear in all copies and that both that
  21. ; copyright notice and this permission notice appear in supporting
  22. ; documentation, and that the name of Hewlett-Packard and Niels Mayer not be
  23. ; used in advertising or publicity pertaining to distribution of the software
  24. ; without specific, written prior permission.  Hewlett-Packard and Niels Mayer
  25. ; makes no representations about the suitability of this software for any
  26. ; purpose.  It is provided "as is" without express or implied warranty.
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28.  
  29. (defun make-rc-shell (s_geom)
  30.   (let*
  31.       ((toplevel_w
  32.     (send TOP_LEVEL_SHELL_WIDGET_CLASS :new 
  33.           :XMN_GEOMETRY s_geom
  34.           :XMN_TITLE "Winterp:RC-SHELL"
  35.           :XMN_ICON_NAME "W:RC-SHELL"
  36.           ))
  37.        (scrl_w
  38.     (send XM_SCROLLED_WINDOW_WIDGET_CLASS :new :managed
  39.           "sc" toplevel_w
  40.           :XMN_SCROLLING_POLICY :AUTOMATIC
  41.           ))
  42.        (rowcol_w
  43.     (send XM_ROW_COLUMN_WIDGET_CLASS :new :managed
  44.           "rc" scrl_w
  45.           :XMN_ORIENTATION :VERTICAL
  46.           :XMN_PACKING :PACK_TIGHT
  47.           :XMN_ENTRY_ALIGNMENT :ALIGNMENT_CENTER
  48.           )))
  49.  
  50.     (send toplevel_w :realize)
  51.     (setq rc_w rowcol_w)
  52.     (setq top_w toplevel_w)
  53.     )
  54.   )
  55.  
  56. (make-rc-shell "=300x300+0+0")
  57. (format T "RC-SHELL Loaded:\n")
  58. (format T "    TopLevelShell widget instance is in variable TOP_W\n")
  59. (format T "    RowColumn widget instance is in variable RC_W\n")
  60.